data_topic_title <- data.frame(
  cat = c("fl", "wl", "gs"),
  topic =factor(c("Forced Labor", "White List", "GSOMIA"), c("Forced Labor", "White List", "GSOMIA")))


data_target <- data.frame(
  target = c("jp_government", "ko_government", "net_leftist", "net_rightist"),
  target_name = c("Japanese Government", "Korean Government", "Internet Leftist", "Internet Rightist"),
  rown = 1:4)
